Cream of the Crop 11/Cream of the Crop 11-2.iso/extra_2/nadir11.zip/LIST.N

Text File | 1995-11-08 | 234b | 10 lines

Define List(table) {
    Print("Beginning of List ", table, " ......\n");
    while (name = next([table]^[name])) {
        Print(name, " \t= ", [table]^[name], "\n");
    }
    Print("End of List ", table, " ......\n");
}